PAGE 1 RDRTSJ SRC RANDOM NUMBER READER TEST FOR SYSTEM EXERCISER 

• TITLE RANDOM NUMBER READER TEST FOR SYSTEM EXERCISER 
/COPYRIGHT AUG g 6,1970 

/DIGITAL EQUIPMENT CORPORATION# MAYNARD f MASS# 

/EARL L, BOUSE 
, EBREL 

/REV, DATE 7 « 2 7 * 7 1 
/ 




700101 

A 

RSF-700101 






700102 

A 

RCF=700102 






700104 

A 

RSA=;700104 






700112 

A 

RRB=700112 






700144 

A 

RSBs700144 






705512 

A 

RPL=705512 






707764 

A 

EBA=707764 






707702 

A 

EEM=707702 




00000 

R 

600010 

A 

f 

UQPSW 600010 


/I/O DEVICE WITH API 


00001 

R 

000000 

A 

0 




00002 

R 

000000 

A 

0 




00003 

R 

000000 

A 

0 




00004 

R 

000111 

R 

.DSA 

PSERV 



00005 

R 

000032 

R 

i DSA 

P I N I T 



00006 

R 

220422 

A 

i S I XBT 

* RpRTST f 



00007 

R 

242324 

A 





000X0 

R 

000020 

A 

20 


/mask for chain mode 


000X1 

R 


A 

, BLOCK 

7 



00020 

R 

000000 

A 

SYSERR 0 


/ERROR INDICATOR 


00021 

R 

000000 

A 

0 


/WORD COUNT FOR DATA 

WORDS 

00022 

R 

000000 

A 

ERCODE 0 


/ERROR CODE 


00023 

R 

000000 

A 

0 


/ 


00024 

R 

000000 

A 

0 


/THE SEVEN LOCATIONS 


00025 

R 

000000 

A 

0 


/FOLLOWING THE ERROR 

CODE 

00026 

R 

000000 

A 

0 


/ARE FOR PATA, 


00027 

R 

000000 

A 

0 




00030 

R 

000000 

A 

0 




00031 

R 

000000 

A 

0 





i EJECT 


RANDOM NUMBER READER TEST FOR SYSTEM EXERCISER 
/AC SWITCH 13 INHIBITS THE READER TEST 

/THE RANDOM NUMBER READER TEST IS RUN USING A TAPE PUNCHED BY THE 
/RANDOM NUMBER PUNCH TEST, THE TAPE IS READ AT BOjH FULL SPEED AND 
/AT RANDOM STALL INTERVALS, IF A REAn ERROR jS ENCOUNTERED IT JS TYP-, 
/ED OUT AND A STALL JS SETUP ALLOWING THE OPERATOR TO REMOVE THE 
/TAPE AND VERIFY IF IT WAS A READ OR A PUNCH ERROR, OR THE ERROR MAY 
/BE IGNQREO AND THE TEST WILL RESUME AFTER THE STALL DELAY, IF THE TAPE 
/IS REMOVED, IT MUST BE RELOADED, 

/FOUR !4) POSSIBLE READER ERRORS MAY OCCUR! 

/ERROR CODE I 

/ 1) NO TAPE IN READER 

/ 2) RSFSKIPPEU WITH THE IORS BIT CLEAR 

/ 3) ILL API INTERRUPT, API INTERRUPTED WITH THE READ FLAG CLEAR 

/ 4) READ DATA ERROR) 

/EXAMPLE! 

/ 

/ TEST TST N0 i COLUMNS READ READ MODE GOOD DATA READ DATA 
/ 

/ RDRtSt 00006)4 010231 (8) 700112 573452 573572 

.EJECT 


o 
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O /INITIALIZE THE READER TEST 

/ 

/ 


o 

00032 

R 

000000 

A 

PINIT 

0 



00033 

R 

707764 

A 


EBA 



00034 

R 

707702 

A 


EEM 


o 

00035 

R 

200032 

R 


LAC 

PINJT 


00036 

R 

040111 

R 


DAC 

PSERV 


00037 

R 

140020 

R 


DZM 

SYSERR 

o 

00040 

R 

140021 

R 


D2M 

ENCODE* 


00041 

R 

140022 

R 


OHM 

ENCODE 


00042 

R 

140510 

R 


OHM 

rmqde™ 

o 

00043 

R 

200522 

R 


LAC 

( PSERA 


00044 

R 

040124 

R 


DAC 

DSTSW1 


00045 

R 

200523 

R 


LAC 

(777000 

o 

00046 

R 

040502 

R 


DAC 

ranstl' 


00047 

R 

200524 

R 


LAC 

(774000 


00050 

R 

040504 

R 


DAC 

CQLCNT 

o 

00051 

R 

140505 

R 


DHM 

RCNT 


00052 

R 

140512 

R 


OHM 

ERFLAG 


00053 

R 

140515 

R 


DHM 

F L G Q R V 

o 

00054 

R 

140507 

R 


DHM 

RUCHK 


00055 

R 

200525 

R 


LAC 

(731420 


00056 

R 

040476 

R 


DAC 

NANA 

o 

00057 

R 

040500 

R 


DAC 

RANX 


00060 

R 

200526 

R 


LAC 

(015610 


00061 

R 

040477 

R 


DAC 

RAN8 

o 

00062 

R 

040501 

R 


DAC 

RANY 


00063 

R 

200521 

R 


LAG 

WAJT 


00064 

R 

540527 

R 


SAD 

( *7 

o 

00065 

R 

100102 

R 


JMS 

PINIT? 


00066 

R 

70031 4 

A 


?QRS 



00067 

R 

500530 

R 


AND 

(1000 

o 

00070 

R 

741200 

A 


SNA 



00071 

R 

600075 

R 


JMP 

PINIT1 


00072 

R 

777771 

A 

EXTPNT 

LAW 

*7 

o 

00073 

R 

040020 

R 


DAC 

SYSERR 


00074 

R 

620032 

R 


JMP# 

PINIT" 


00075 

R 

740000 

A 

PINIT! 

NOP 


o 

00076 

R 

140506 

R 


DZM 

WAIT! 


00077 

R 

100444 

R 


JMS 

HOLD 


00100 

R 

700104 

A 


RSA 


o 

00101 

R 

620032 

R 


JMP# 

PINJT 


00102 

R 

000000 

A 

P I N I T2 

0 



00103 

R 

700314 

A 


I0RS 


o 

00104 

R 

500530 

R 


AND 

(1000 


00105 

R 

741200 

A 


SNA 



00106 

R 

600072 

R 


JMP 

EXTPNT 

o 

00107 

R 

140521 

R 


DHM 

WAJT 


00110 

R 

620102 

R 


JMP** 

PJNIT2 







, EJECT 


o 









o 


o 


FOR SYSTEM EXERCISER 


/ERROR INDICATOR 
/WORD COUNT 
/ERROR CODE 
/SET READ MODE ALPHA 

/DESTINATION SWITCH 
/1ST RANDOM STALL COUNT 


/FULL SPEED READ COUNTER 
/SET NO OF COLUMNS TO READ 
/SWITCH FOR ERROR DETECTOR 


/INITIALIZE RANDOM NO, A 


/INITIALIZE RANDOM NO, B 


/WAITING FOR notape flag? 
/yes, see IF now set. 
/TEST FOR reader NO tape 


/tape OK, READ 

/INDICATES to MONITOR TO EXIT, DO NOT 
/TYPE AN ERROR AND ENTER AGAIN VIA PINIT 
/WAIT For TAPE 
/CHANGES TO (JMS timout 
/CLEAR THE NO TAPE SWITCH, 

/examine THE hold SWITCH 
/START THE READ 


/IS NOTAPE FLAG set? 

/NO, EXIT *7 

/YES, CLEAR WAJT SWITCH 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 



o 
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G 





/SERVI 

CE ENTRANCE FOR THE READER TEST 

J 


00111 

R 

000000 

A 

PSERV 

f 

0 



O 

00UJ? 

R 

707764 

A 


EBA 




00113 

R 

707702 

A 


EEM 



o 

00ix4 

R 

040511 

R 


DAC 

savac 

/SAVE THE CONTENTS OF THE AC 

001X5 

R 

200506 

R 


LAC 

WAJT1 



00116 

R 

540527 

R 


SAD 

C» 7 

/WAITING FOR TAPE? 


00117 

R 

620111 

R 


JMP# 

PSERV 

/YES, EXIT 

G 

00120 

R 

200515 

R 


LAC 

FLGDRV 



00121 

R 

740200 

A 


S2A 

/WERE WE READING? 


00122 

R 

100440 

R 


JMS 

FEAGUP 

/YES, check if finished 

O 

00123 

R 

620124 

R 


JMP# 

QSTSWi 



00124 

R 

000000 

A 

DSTSW1 

0 


/=T0 STALL OR NORMAL READ 


00125 

R 

700314 

A 

PSERA 

IQRS 


/ I F THE READER FLAG IS NOT UP, RETURN 

O 

00126 

R 

040021 

R 


DAC 

ERCQDE*! 


00127 

R 

500530 

R 


AND 

(1000? 

/TO monitor with ac=-i 


00130 

R 

740200 

A 


32 A 


/IF THE FLAG JS UP, DO THE NEXT 

o 

00131 

R 

600267 

R 


JMP 

NOTAPE 

/OPERATION THEN EXIT WITH AC = 0 


00132 

R 

700101 

A 


RSF 

/TEST READER FLAG 

o 

00133 

R 

600262 

R 


JMP 

NOFLAG 


00134 

R 

200021 

R 


LAC 

ENCODED 



00135 

R 

500531 

R 


AND 

(200000 

/READER FLAG 

o 

00136 

R 

741200 

A 


SNA 



00137 

R 

600312 

R 


JMP 

ERR0R2 

/RSF SKIPPED BUT STATUS BIT CLEAR 


00140 

R 

100152 

R 

PSERV, 

1 JMS 

RDTST 

/READER INTERRUPT, READ DATA 

0 

00141 

R 

200532 

R 

EXIT 

LAC 

! JMS TIMOUT 


00142 

R 

040075 

R 


DAC 

PJNJT1 



00143 

R 

200533 

R 


LAC 

(700000 


o 

00144 

R 

040516 

R 


DAC 

TIME 

/INITIALIZE A STALL COUNT 

00145 

R 

705512 

A 


RPL 


/TEST FOR API ENABLED 


00146 

R 

751100 

A 


SPA { CL A 




00147 

R 

2005il 

R 


EAC 

SAVAC 

/API ON, RESTORE THE AC 

o 

00150 

R 

703344 

A 


DPR 



00151 

R 

620111 

R 


JMP# 

PSERV 


o 






/ 

/ 




00152 

R 

000000 

A 

RDTST 

0 



o 

00153 

R 

100444 

R 


JMS 

HOLD 

/EXAMINE HOLD SWITCH 

00154 

R 

700112 

A 


RRB 




00155 

R 

040474 

R 


DAC 

DATA 

/STORE READER BUFFER 


00156 

R 

200507 

R 


LAC 

rdchk 


o 

00157 

R 

740200 

A 


S2 A 


/HAO A SUCCESSFUL READ? 


00160 

R 

600166 

R 


JMP 

READ 

/YES 


00161 

R 

200474 

R 


LAC 

DATA 

/NO 

o 

00162 

R 

740200 

A 


S2A 


/THIS READ OK? 


00163 

R 

600166 

R 


JMP 

READ 

/YES, COMPARE READ DATA 


00164 

R 

700104 

A 


RS A 


/NO, READ THE NEXT COLUMN 

0 

00165 

R 

620152 

R 


JMP# 

.EJECT 

RDTST 



O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

o 


u 


O 


o 


PAGE 


RQRTST SRC 


o 





/READ 

subroutine; 

/ 


00166 

R 

777777 

A 

READ 

LAW 

"1 

o 

00167 

R 

040507 

R 


DAC 

RDCHK 


00170 

R 

440505 

R 


isz 

RCNT 


00171 

R 

740000 

A 


NOP 



00172 

R 

200505 

R 


LAC 

RCNT 


00173 

R 

540534 

R 


SAD 

(0307/7 


00174 

R 

600232 

R 


JMP 

DONE 

o 

00175 

R 

100250 

R 


JMS 

RANDOM 


00176 

R 

040475 

R 


DAC 

DATNUM 


00177 

R 

200510 

R 


LAC 

RHODE 

o 

00200 

R 

740200 

A 


S2 A 



00201 

R 

600242 

R 


sJMP 

TRSB 


00202 

R 

200475 

R 


LAC 

DATNUM 

o 

00203 

R 

500535 

R 


AND 

(377 


00204 

R 

040475 

R 


DAC 

DATNUM 


00205 

R 

540474 

R 


SAO 

DATA 

o 

00206 

R 

741000 

A 


SKP 



00207 

R 

100321 

R 


JMS 

ERRDAT 


00210 

R 

700144 

A 


RSB 


o 

00211 

R 

200510 

R 

RRET 

LAC 

RMOQE 


00212 

R 

740001 

A 


CMA 



00213 

R 

040510 

R 


DAC 

RHODE 

0 

00214 

R 

7777/7 

A 


LAW 

”1 


00215 

R 

040515 

R 


DAC 

FLGDRV 


00216 

R 

200001 

R 


LAC 

UODSW+1 

o 

00217 

R 

740020 

A 


RAR 



00220 

R 

741400 

A 


SZL 

- 


00221 

R 

620152 

R 


UMP* 

RDTST 

o 

00222 

R 

440504 

R 


isz 

CQLCNT 


00223 

R 

620152 

R 


JMP* 

RDTST 


00224 

R 

200536 

R 


LAC 

(STALL 

o 

00225 

R 

040124 

R 


DAC 

QSTSW1 


00226 

R 

200502 

R 


LAC 

RANSTL 


00227 

R 

340537 

R 


TAD 

(*100 

o 

00230 

R 

040513 

R 


DAC 

NOSTALL 


00231 

R 

620152 

R 


JMP<» 

RDTST 

o 

00232 

R 

700112 

A 

DONE 

RRB 



00233 

R 

777774 

A 


LAW 

n 4 


00234 

R 

040020 

R 


DAC 

SYSERR 

0 

00235 

R 

140021 

R 


D2M 

SYSERR+1 


00236 

R 

777771 

A 


LAW 

rt 7 


00237 

R 

040521 

R 


DAC 

WAIT 

0 

00240 

R 

040506 

R 


DAC 

WAIT1 


00241 

R 

600141 

R 


JMP 

EXIT 


RANDOM NUMBER READER TEST FOR SYSTEM EXERCISER 


/INDICATES SUCCESSFUE READ 
/COUNT COLUMS READ 


,EUECT 


/FINISHED READING? 
/YES, EXIT 

/NO, GET RANDOM NUMBER 


/DETERMINE HEAD MODE 

/READ MODE BINARY 

/READ MODE ALPHA 

/MASK BITS ,10517 

/SAVE THE MASKED NUMBER 

/COMPARE READ Data TO RANDOM NUMBER 

/READ IS = TO THE NUMBER 

/NO, GO TO DATA ERROR 

, READ THE NEXT COLUMN 


/COMPLIMENT THE read MODE 


/INDICATES flag driven 


/counter for full speed read 


/INITIALIZE 

/INITIALIZE 


THE STALL ROUTINE 
A NO STALL COUNT 


/DONE, EXIT 


/SET NOTAPE SWITCH 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 


o 

o 

o 

o 

o 


o 


o 
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/REAP BINARY 
/ 


00242 

R 

200475 

R 

TRSB 

LAC 

datnum 


/get random number 

00243 

R 

540474 

R 


sad 

DATA 


/compare read to ranoqm number 

00244 

R 

741000 

A 


SKP 



/is READ = TO number 

00245 

R 

100321 

R 


UMS 

ERRDAT 


/no, GO TO DATA ERROR 

00246 

R 

700104 

A 


RS A 


/YES, REAO NEXT COLUMN 

00247 

R 

600211 

R 


UMP 

/ 

RRET 







/RANDOM 

/ 

NUMBER 

j 

SUBROUTINE! 

EXIT 

WITH NUMBER IN THE AC 

00250 

R 

000000 

A ' 

RANDOM 

f 

0 




00251 

R 

754000 

A 


CLUCLA 



00252 

R 

340476 

R 


TAD 

RANA 



00253 

R 

340477 

R 


TAD 

RANB 



00254 

R 

040476 

R 


DAC 

RANA 



00255 

R 

750010 

A 


GLK 




00256 

R 

340476 

R 


TAD 

RANA 



00257 

R 

340477 

R 


TAD 

RANB 



00260 

R 

040477 

R 


DAC 

RANB 



00261 

R 

620250 

R 


JMP# 

/ 

RANDOM 







/ 

/NO FLAG FROM 

REAPER i TEST 

THAT 

API IS OFF 

00262 

R 

705512 

A 

NQELAG 

RPL 



/TEST IF API IS ON 

00263 

R 

741100 

A 


SPA 




00264 

R 

600353 

R 


JMP 

ERRQR3 


/NO READER FLAG, API INTERRUPTED 

00265 

R 

777777 

A 


LAW 



/NO READER FLAG, API OFF 

00266 

R 

620111 

R 


JMP* 

/ 

PSERV 


/normal exit 





/ERROR 

/ 

011 NO 

TAPE IN READER 


00267 

R 

700112 

A 

NOTAPE 

J 

RRB 



/CLEAR THE READER FLAG 

00270 

R 

777775 

A 


LAW 

• »3 



00271 

R 

040020 

R 


DAC 

SYSERR 



00272 

R 

200^40 

R 


LAC 

u 


/ERROR CODE 011 NO TAPE 

00273 

R 

040022 

R 


DAC 

ENCODE 



00274 

R 

777777 

A 


LAW 

n 


/ONE DATA WORD TO BE PRINTED 

00275 

R 

040021 

R 


DAC 

ERCOPErl 



00276 

R 

140515 

R 


P£M 

F LG DRV 



00277 

R 

200541 

R 


LAC 

( EXTNTP 



00300 

R 

040124 

R 


DAC 

PSTSWi 



00303, 

R 

600141 

R 


3MP 

iEUECT 

EXIT 





o 








o 

o 








o 
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RDRTST SRC 

RANDOM NUMBER READER 

TEST FOR SYSTEM EXERCISER 


o 

00302 

R 

200^20 

R 

EXTNTP UAC 

SYSERR 


o 


00303 

R 

540542 

R 

SAD 

(*3 

/TYPED ERROR yet? 



00304 

R 

600141 

R 

JMP 

EXJT 



o 

00305 

R 

140021 

R 

D2M 

syserr*i 


o 


00306 

R 

777771 

A 

LAW 

*7 




00307 

R 

040020 

R 

DAC 

SYSERR 


o 

o 

00310 

R 

040506 

R 

DAC 

WAIT! 



00311 

R 

600141 

R 

JMP 

EXIT 



o 





/ERR0R2 IS WHEN 

RSP SKIPPED BUT STATUS BIT CLEAR 

o 

o 

00312 

R 

200543 

R 

ERRQR2 t, AC 

(2 



00313 

R 

040022 

R 

DAC 

ENCODE 

/ERROR CODE 02 

o 


00314 

R 

777777 

A 

LAW 

■*% 



o 

00315 

R 

040020 

R 

DAC 

SYSERR 



00316 

R 

777776 

A 

LAW 

» 2 


o 


00317 

R 

040021 

R 

DAC 

ERCODE-1 




00320 

R 

600141 

R 

JMP 

exit 



0 





/ 

7 


o 






/DATA ERRORi READ DATA IS 

DIFFERENT from EXPECTED DATA 

o 

o 





/ 



00321 

R 

000000 

A 

ERRDAT 0 





00322 

R 

200544 

R 

LAC 

14 

/ERROR CODE 04? DATA ERROR 

o 

o 

00323 

R 

040022 

R 

DAC 

erqqde 



00324 

R 

777773 

A 

LAW 

m $ 

/five data errors to be printeo 


o 

00325 

R 

040021 

R 

DAC 

ERQQDE*! 


o 

00326 

R 

777776 

A 

LAW 

*2 



00327 

R 

040020 

R 

DAC 

SYSERR 



0 

00330 

R 

200505 

R 

LAC 

RQNT 

/COLUMNS READ 


00331 

R 

040023 

R 

DAC 

ERQQDE.*! 


o 


00332 

R 

200510 

R 

LAC 

RMQDE 

/DETERMINE READ MODE 



00333 

R 

750200 

A 

SHA1CLA 



o 

o 

00334 

R 

200545 

R 

LAC 

(40 

/READ BINARY. 700144 


00335 

R 

340546 

R 

TAD 

(700104 

/READ ALPHA. 700104 



00336 

R 

040024 

R 

DAC 

ERCODE+2 

o 

o 

00337 

R 

200475 

R 

LAC 

PATNUM 

/GOOD DATA 


00340 

R 

040025 

R 

DAC 

ERCQDE+3 




00341 

R 

200474 

R 

LAC 

DATA 

/read data 

o 

o 

00342 

R 

040026 

R 

DAC 

ERQODE+4 



00343 

R 

200547 

R 

LAC 

(750000 




00344 

R 

040517 

R 

DAC. 

LOOP 

/SET UP A WAIT COUNT 


o 

00345 

R 

777775 

A 

LAW 

» 3 


o 


00346 

R 

040520 

R 

DAC 

LOOP! 




00347 

R 

200550 

R 

LAC 

(SRVEHR 


o 

o 

00350 

R 

040124 

R 

DAC 

PSTSW1 

/SET DESTINATION SWITCH 


00351 

R 

140515 

R 

D2M 

FLGDRV 

exit ' 

/CLEAR FLAG SWITCH 



00352 

R 

600141 

R 

JMP 



0 





.EJECT 



o 

o 








o 

o 








O 

o 








O 
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/ERROR3, API INTERRUPT OCCURED WITH MO READER FLAG SET 
/ 


00353 

R 

777777 

A 

ERR0R3 

LAW 

«1 

/SET up ERROR 3 

00354 

R 

040020 

R 


DAC 

syserr 


00355 

R 

200551 

R 


LAC 

(3 

/ERROR CODE 03) API ERROR 

00356 

R 

040022 

R 


DAC 

ERCODE 


00357 

R 

777777 

A 


LAW 


/ONE DATA WORD TO BE PRINTED 

00360 

R 

040021 

R 


DAC 

ERCODE^l 


00363. 

R 

600141 

R 


JMP 

/ 

)R ERRC 
/ 

LX I T 






/WAIT Ft 

)R TO BE TYPED, 

AND STALL BEFORE CONTINUING REA 

00362 

R 

200020 

R 

SRVERR 

LAC 

SYSERR 


00363 

R 

540552 

R 


SAP 

( *2 

/ERROR TYPED YET? 

00364 

R 

600141 

R 


JMP 

PIT 

/NO, EXIT 

00365 

R 

700314 

A 


JORS 


/test for no tape flag 

00366 

R 

500530 

R 


AND 

(1000 


-00367 

R 

740200 

A 


SHA 


/is flag set? 

00370 

R 

600267 

R 


JMP 

NQTAPE 

/yes, print code 

00371 

R 

440517 

R 


ISH 

LQOP 

/no, START delay 

00372 

R 

600422 

R 


JMP 

STEEXT 

/exit *>5 

00373 

R 

440520 

R 


IS? 

LOOP! 


00374 

R 

600422 

R 


JMP 

stlext 


00375 

R 

200522 

R 


LAC 

(PSERA 


00376 

R 

040124 

R 


DAC 

QSTSW1 

/RESET DESTINATION SWITCH 

00377 

R. 

200523 

R 


LAC 

( 777000 


00400 

R 

040504 

R 


DAC 

colcnt 

/RE IN I T FULL SPEED READ 

00401 

R 

100444 

R 


JMS 

HOLD 

/TEST FOR HOLD SWITCH 

00402 

R 

620321 

R 


JMP* 

/ 

E R R D A I 

/READ NEXT COLUMN 





/RANDOM 

/ 

STALL 

ROUTINE 


00403 

R 

200515 

R 

STALL 

LAC 

FLGQRV 

/flag driven ? 

00404 

R 

740200 

A 


SZA 



00405 

R 

700112 

A 


RRB 


/YES, CLEAR READER FLAG 

00406 

R 

140515 

R 


DZM 

FLGDRV 

/NO# ENTERED SYSERR-9 

00407 

R 

440502 

R 


IS? 

RANSTL 

/counter for STALL N0, 

00410 

R 

600422 

R 


JMP 

STLEXT 

/CONTINUE STALL 

00411 

R 

100425 

R 


JMS 

GENRAN 

/SET UP FOR NEXT STALL TIME 

00412 

R 

040502 

R 


DAC 

RANSTL 


00413 

R 

440513 

R 


IS? 

NPSTAL 

/CHECK FOR NQ STALL 

00414 

R 

600140 

R 


JMP 

PSERVjl 


00415 

R 

340553 

R 


TAD 

( « 3 0 0 


00416 

R 

040504 

R 


DAC 

COLCNT 

/SET UP NO STALL COUNT 

00417 

R 

200522 

R 


LAC 

(PSERA 


00420 

R 

040124 

R 


DAC 

DSTSW1 

/CLEAR THE STALL SWITCH 

00421 

R 

600140 

R 


JMP 

PSERVjl 


00422 

R 

777773 

A 

stlext 

LAW 

»5 

/CONTINUE STALL 

00423 

R 

040020 

R 


DAC 

SYSERR 


00424 

R 

600141 

R 


JMP 

EXIT 



.EJECT 


o o 


o o 

Ot/'c- n nnDTC'T o n ei n * m r\ ^ i j mi iMor a n r i n r n rrnT r* « n c* n t r v i r u r ri f t r> r n * 
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rdrtsi 

SRC 

random number reamer 

TEST FOR SYSTEM EXERCISER 


o 





/generate random STALL N0 
/ 

,i EXIT WITH N0 , IN THE AC 

o 


00425 

R 

000000 

A 

( 

genran 0 




o 

00426 

R 

340500 

R 

TAD 

RANX 


o 


00427 

R 

340501 

R 

TAD 

RANY 




00430 

R 

040500 

R 

DAC 

RANX 



o 

00431, 

R 

750010 

A 

GLK 



o 


00432 

R 

340500 

R 

TAD 

RANX 




00433 

R 

340501 

R 

TAD 

RANY 



o 

00434 

R 

040501 

R 

DAC 

RANY 


o 


00435 

R 

500554 

R 

AND 

(17 




00436 

R 

740001 

A 

CMA 




o 

00437 

R 

620425 

R 

jmp# 

/ 

GENRAN 


o 

o 





/ 

/test that the 

READER HAS 

FINISHED READING BEFORE CONTINUING, 

o 


00440 

R 

000000 

A 

flagup 0 




o 

00441 

R 

700m 

A 

RSF 


/TEST FOR READER FUAG 

o 


00442 

R 

600262 

R 

JMP 

NQFUAG 

/READER IS NOT FINISHED 

■ 


00443 

R 

620440 

R 

JMP# 

FLAGUP 

/FUAG UP, CONTINUE 


o 





/ 

/ 



o 






/test AC switch 

13 WHICH 

inhibits the reader TEST 


o 





/ 



o 


00444 

R 

000000 

A 

HOLD 0 





00445 

R 

750004 

A 

LAS 




o 

00446 

R 

500555 

R 

AND 

(20 

/AC SW 13 

o 


00447 

R 

741200 

A 

SNA 


/ J S SWITCH UP? 



00450 

R 

620444 

R 

JMP# 

HQUD 

/NO, CONTINUE 


o 

00451 

R 

200124 

R 

UAC 

D5TSW1 

/YES 

o 


00452 

R 

040503 

R 

DAC 

SAVDSt 

/save return address 



00453 

R 

200556 

R 

UAC 

(HOLD, 1 



o 

00454 

R 

040124 

R 

DAC 

OSTSW1 


o 


00455 

R 

20053.5 

R 

UAC 

FLGDRV 




00456 

R 

741200 

A 

SNA 


/FUAG DRIVEN? 


o 

00457 

R 

600422 

R 

JMP 

STLEXT 

/NO, EXIT -5 

o 


00460 

R 

700101 

A 

RSF 


/YES, IS READER FINISHED? 



00461 

R 

600422 

R 

JMP 

STLEXT 

/NO 


o 

00462 

R 

140515 

R 

DZM 

FLGDRV 


o 


00463 

R 

700112 

A 

RRB 


/YES, CLEAR READER FLAG 



00464 

R 

600422 

R 

JMP 

STLEXT 

/exit 


o 





/ 



0 


00465 

R 

200503 

R 

HOLD 1 1 UAC 

SAVDST 




00466 

R 

040124 

R 

DAC 

DSTSW1 

/RESTORE THE RETURN ADDRESS 


o 

00467 

R 

600445 

R 

JMP 

HOLD*! 

/RETEST SWITCH 

o 


.EJECT 


O 

o 

o 

LJ 


o 

o 

o 


o 



<J 

o 

PAGE 10 RDRTST SRC RANDOM NUMBER READER TEST 


o 



00470 

R 

000000 

A 

o 

00471 

R 

440516 

R 


00472 

R 

600072 

R 

o 

004 73 

R 

620470 

R 


00474 

R 

000000 

A 

o 

00475 

R 

000000 

A 

00476 

R 

000000 

A 


00477 

R 

000000 

A 


00500 

R 

000000 

A 

o 

00501 

R 

000000 

A 


00502 

R 

000000 

A 

o 

00503 

R 

000000 

A 

00504 

R 

000000 

A 


00505 

R 

000000 

A 

o 

00506 

R 

000000 

A 

00507 

R 

000000 

A 


00510 

R 

000000 

A 

o 

00511 

R 

000000 

A 

00512 

R 

000000 

A 


00513 

R 

000000 

A 

o 

00514 

R 

000000 

A 

00515 

R 

000000 

A 


00516 

R 

000000 

A 

o 

00517 

R 

000000 

A 

00520 

R 

000000 

A 


00521 

R 

000000 

A 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


/WAIT FOR 10 SEC, AFTER NOTAPE 



/ 


TIMOUT 

0 




TIME 


JMP 

EXTPNT 


*JMP# 

TIMOUT 

DATA 

f 

0 


QATNUN 

0 


RAMA 

0 


RANB 

0 


RANX 

0 


RANY 

0 


RANSTL 

0 


SAVDST 

0 


GOUCNT 

0 


RCNT 

0 


HAITI 

0 


RDCHK 

0 


RMQDE 

0 


SAVAQ 

0 


ERFUG 

0 


NOSTAU 

0 


NJAPFG 

.0 


FLGDRV 

0 


TIME 

0 


LOOP 

0 


LOOP! 

0 


WAIT 

0 

i EJECT 



o 

o 

FOR SYSTEM EXERCISER 

Ft AG IS CLEARED O 

o 

/exit via *7 

/RESTART READ TEST 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



PAGE 11 RDRTST SRC 

000000 R 

00522 R 000125 R 

00523 R 777000 A *L 

00524 R 774000 A 

00525 R 731420 A #L 

00526 R 015610 A #1, 

00527 R 777771 A »L 

00530 R 001000 A 

00531 R 200000 A 

00532 R 100470 R #1, 

00533 R 700000 A *1 

00534 R 030777 A •(, 

00535 R 000377 A H 

00536 R 000403 R 

00537 R 777700 A 

00540 R 000001 A *L 

00541 R 000302 R 4L 

00542 R 777775 A »[, 

00543 R 000002 A «j, 

00544 R 000004 A U 

00545 R 000040 A 

00546 R 700104 A »l 

00547 R 750000 A #L 

00550 R 000362 R *[, 

00551 R 000003 A 

00552 R 777776 A *i 

00553 R 777500 A 

00554 R 000017 A *L 

00555 R 000020 A 

00556 R 000465 R 

S|ziE = 00560 


RANDOM NUMBER READER TEST F OR SYSTEM EXERCISER 
, END UODSW 


NO ERROR LINES 



PAGE 12 RDRTST SRC RANDOM NUMBER REAPER TEST FOR SYSTEM EXERCISER 


CQICNT 

00504 

R 

DATA 

00474 

R 

DATNUM 

00475 

R 

DONE 

00232 

R 

DSTSWi 

00124 

R 

EBA 

707764 

A 

EEM‘ 

707702 

A 

ERCODE 

00022 

R 

ERPUAG 

00512 

R 

ERRPAT 

00321 

R 

ERKQR2 

'00312 

R 

ERH0R3 

00353 

R 

EXIT 

00141 

R 

EXTNTP 

00302 

R 

EXTPNT 

00072 

R 

FUAGUP 

00440 

R 

F^GDR V 

00515 

R 

genran 

00425 

R 

hold 

00444 

R 

HOLD,! 

00465 

R 

LOOP 

00517 

R 

LQOP1 

00520 

R 

N0FLA6 

00262 

R 

NOSTAl 

00513 

R 

NOTAPE 

00267 

R 

NTAPFG 

00514 

R 

PINIT 

00032 

R 

PIN1T1 

00075 

R 

PINIT2 

00102 

R 

PSERA 

00125 

R 

PSERV 

00111 

R 

PSERV, 

00140 

R 

RANA 

00476 

R 

RANB 

00477 

R 

random 

00250 

R 

RANSTE 

00502 

R 

RANX 

00500 

R 

RANY 

00501 

R 

RGF 

700102 

A 

RCNT 

00505 

R 

ROPHK 

00507 

R 

RPTST 

00152 

R ' 

REAP 

'00166 

R 

RMOOE 

00510 

R 

RPU 

705512 

A 

RR8 

700112 

A 

RRET 

00211 

R 

RSA 

700104 

A 

RSB 

700144 

A 

RSF 

700101 

A 

savag 

00511 

R 

SAVDST 

00503 

R 

SRVERR 

00362 

R 

STALE 

00403 

R 

STLEXT 

00422 

R 

syserr 

00020 

R 

TIME 

00516 

R 

TJMQUT 

00470 

R 

TRSB 

00242 

R 

UODSW 

00000 

R 

WAIT 

00521 

R 

W A I T1 

00506 

R 









o 


o 

page: j 

13 1 

rqrtsi 

: src 

RANDOM 

NUMBER REAPER TEE 

3T 

o 

UQDSW 

00000 

R 

SYSERR 

00020 

R 

ERCQDE 

00022 

R 


EXTPNT 

00072 

R 

PIN IT! 

00075 

R 

PINIT2 

00102 

R 


DSTSW1 

00124 

R 

PSERA 

00125 

R 

PSERV, 

00140 

R 

o 

RQTST 

00152 

R 

READ 

00166 

R 

RRET 

00211 

R 


TKSB 

00242 

R 

RANDOM 

00250 

R 

nqflag 

00262 

R 


EXTNTP 

00302 

R 

ERRORS 

00312 

R 

ERRDAT 

550321 

R 

o 

SRVERR 

00362 

R 

STALL, 

00403 

R 

stllxt 

00422 

R 


flagur 

00440 

R 

HOLD 

00444 

R 

HOLD,! 

00465 

R 


DATA 

00474 

R 

DATNUM 

00475 

R 

RANA 

00476 

R 

o 

ranx 

00500 

R 

RANY 

00501 

R 

R ANSTL 

00502 

R 


COUQNT 

00504 

R 

RCNT 

00505 

R 

WAIT1 

00506 

R 

o 

rmqoe 

00510 

R 

SAVAC 

00511 

R 

ERFLAG 

00512 

R 

NTAPFG 

00514 

R 

FLGPRV 

00515 

R 

time: 

00516 

R 


L00P1 

00520 

R 

WAJT 

00521 

R 

rsf"' 

700101 

A 

o . 

RSA 

700104 

A 

RRB 

700112 

A 

RSB 

700144 

A 

EEM 

707702 

A 

EBA 

707764 

A 





o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 


o 

FOR SYSTEM EXERCISER 


P INI T 

00032 

R 

o 

pSERV 

00111 

R 


EXIT 

00141 

R 

o 

DONE 

00232 

R 

NOTAPE 

0026 7 

R 


errors 

00353 

R 


genran 

00425 

R 

o 

TIMOUT 

00470 

R 


ranb 

00477 

R 

o 

SAVDST 

00503 

R 

RPCHK 

00507 

R 


NOSTAL 

00513 

R 

o 

UQOP 

00517 

R 

RCF 

700102 

A 


RPL 

705512 

A 

o 


o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 



